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TITLE ar $3 Standalone $PARSE subroutines 
-IDENT ‘v04-000' 


om or 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
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SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: 
Backup/Restore 


ABSTRACT: 
This module contains the external subroutines and data required for 
RMS PARSE and XPFN to operate. 


ENVIRONMENT: 
VAX/VMS user mode. 


NAMEN OS OD NAME WIN 9 OD NOAUE WIN 3 O OOD NAME WIN 0 OD NOAM EW ( OOONOUNE WN 


PVPS PVT BS BE BB BE EE ENN AAA NAIA AI POPP NININININIDS 2 I PO OO Oe ee 


00 Sail 
000 ; 
44 3; AUTHOR: M. Jack, CREATION DATE: 27-Dec-1980 
900 ; 
4 3; MODIFIED BY: 
200 ; v03-013 RAS0293 Ron Schaefer 15-Apr-1984 
000 ; Add RMSRETPAG entry nett and dummy entries for 
900 : RMSSLIST_ERR and RMSSLIST_ERR_CNT. 
900 : v03-012 DAS0001 David Solomon 29-F eb-1984 
38 : Add dummy entry point RMSFSET_ALT to track RMSOPARSE change. 
800 : v03-011 RASO221 Ron Schaefer 99-Dec-1983 
00 F Add guaay entry points: RMSDEACCESS, RMSGETIPAG, RMSRETIPAG, 
3 : RMSGETBLK1 in order to track RMS. 
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=1984 23: AX/VMS M v04-00 

=}382 33:30; 8 YBACKUP. Sa SRE SSTA APARSE ..MAR; 1 

v03-010 RASO212 Ron Schaefer 16-Nov-1983 
Fix version/implementation skew in RMSASSIGN N by moving it 
to a conditionalized version of ue | RMS module RMOPRFLNM 
for both RMS and stand-alone BACKUP 


V03-009 JwT0136 Jim Teague 19-Sep-1983 
Be sure to clean out IF] between calls to FABCHK, 
also can remove RMSFSETI entry point. 


v03-008 KBT0529 Keith 8. Thompson 31-May-1983 
Change PSECT RMSAMS to PIC and add RMSGETBLK ond RMSRETBLK 


v03-007 ACG0332 Andrew C. Goldstein, 5-May-1983 15:30 
Track changes in RMS testpoints 


V03-006 RASO127 Ron Schaefer 
Add global ona RMSRETSPC. 


v03-005 RASO125 on Schaefer 
Add global heohal RMS$GETSPC. 


v03-004 RASO111 Ron Schaefer 
Change ayooss: 

WAST _SHRF ILDEV => FWAST_SHRF ILBUF 

IFBSW_DEVBUFSIZ => IFBSL_DEVBUFSIZ 


v03-003 RASO098 n Schaefer 16-Sep-1982 
Change PSECT sear taoken of RMSRMS to wnetch RMS. 


v03-002 RAS0097 an Schaefer 14-Sep-1982 


Track RMS enon 
1. Change s tin of a_i to RMSSPARSE. 
¢: Add RMSFSETI_ALT entr 


Change code PSECT to XnGans i to prevent truncation errors. 


v03-001 MLJ0082 Martin L. Jack, Li te athe A aL. 48 
Set DEVSV_FOR aA DEVSV_MNT to cor t prep 
continuation tapes. Initialize PUAST _S RF TEBEY in RMSASSIG 
track RMS oe 


v02-003 MLJ0079 artin L. Jack, 17-Feb-1982 13:51 
Set up R11 in RMST ABCHK to oint to a dummy image 1/0 impure 
page. This is now used by SPARSE. 


v02-002 MLJ0063 artin L. Jack, eF-Oag~ 1901 1:58 
Correct RMSALDBUF® to accept size in R 


v02-001 MLJ0054 rtin L. Jack, 22-Nov-1981 
Integrate GET ve pt FREE_VM jacket routines. 


4-Mar-1983 


21-Feb-1983 


22-Dec-1982 


22:51 
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4-SEP-1984 00:4 BACKUP. SRCJSTAPARSE .MAR; 1 
vce 119 -PSECT RMSRMS,PIC,EXE,NOWRT,GBL 
09 6 SBDBDEF 
we SCCBDEF 
$3 114 SDCDEF 
3 115 SDEVDEF 
00 138 SDIBDEF 
000 11 $F ABDEF 
0000 18 SFWADEF 
44 11 SIFBDEF 
B38 120 SIODEF 
8 0 121 SPSLDEF 
4 } § SUCBDEF 
OFFC 0000 124 ENTRY SYSSPARSE ,“M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
00000002"GF 17 0002 3 JMP G“RMSSPARSE+2 
0008 127 NTSNWA_INIT:: 
50 00000000'°8F pO 0008 128 MOVL #RMS$_SYN,RO ; set error code 
05 44 : 4 RSB : return 
0010 131 RMSSLIST_ERRS:: 3 no search List errors 
0000 0010 136 ~ WOR 3 are appropriate 
00000000 0012 it RMSSLIST_ERR_CNT == 
001 135 RMSCLEANUP: : 
°F b01s 139 rate 
50 oD ee 139 rine RO ; save error code 
£8 pat 0015 140 BSBB RMSCLEANUP : cleanup ifab and stuff 
apie 146 BRB RMSEX_NOSTR : and do structureless exit 
001C 144 RMSEXSUC:: 
50 01 00 bate 1¢? mane mente #1,R0 3 set success 
00 50 10 OO1F 147 -BBSS #16 RO,10$ ; add rms facility code 
08 AB 50 00 0023 148108: MOV. RO, FABSL_STS(RE) t and store in fab/rab 
0097 4 RET 3 exit rms 
0028 151 RMSFABCHK:: 
57 03 pO 0028 136 MOVL #PSLSC_USER,R7 ; set previous mode user 
5B OO0000000°EF 9 0 15 MOVAB PIO$GW \ cataltaiel 3; point to fake image i/o impure area 
58 04 AC b $088 154 OVL 4(AP) R ; get fab address 
08 A8 MC 0036 155 CLRQ 4a tine BEES f ; clear sts and stv 
6 A8 4 0038 156 CLRW FABSW_IFI(R8) 3; clear ifi 
59 02 A8 C 003C 157 MOVZWL FABSW_IFI(R8),R9 : set r9 = ifi value 
05 sk 138 $B 3 return 
FSETI_ALT:: 
52 C 8F OA si ist vad Oy raL #1FBSC_BLN_SEQ,R2 : block size for ifab 
0046 30 0045 16 BSBW RASGETSPC i get ifab space 
59 $1 048 18 MOVL R1,R 3 Save ifab address 
gM Rey i eR SURE ma tame tuamliany | Btee tte for fit 
- $3 4 eo e b0%6 166 MOVAB IFBSL_BDB_FLNK(R9) ,RO 3; set up bdb Link pointers 


Calpe eT ame cee RET 
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; V¥04-000 4-SEP-1 BACKUP. SRE SSTAPARSE MAR: 1 (2) 
28 DO 58 167 MOVL RO, (RO) 3 
os AO 0 00 58 198 MOVL RO,4(RO) : 
00000208 'EF 59 00 SF 1 MOVL R9,1FAB mistts | : save ifab address 
02 A8 01 B80 S44 179 werent i #1, FABSO_IFI(R8) ; store ifi value 
OA Ad 4 90 GOea 1% “MOV R7, 1FBSB_MODE (R9) 3; save caller's mode 
18 Ad .-« oe 88 17 MOVL AP, IFBSL_ARGLST(R9) 3; save pointer to arglist 
A 59 pd0 00 174 MOVL R9,R10 3; copy ifab addr 
24 a9 =58 +4 bee 175 MOVL R8,IFBSL_LAST_FAB(R9) ; save addr this fab 
he Baiada 
Bach 178 RMSGETBLK:: 
O7A 179 RMSGETBLK1:: 
52 DD OO7A 180 PUSHL ro 3; save # of Longwords 
52 52 02 % 007C 181 OTL #2,R2,R ; convert to bytes 
0¢ 10 0080 18¢ BSBB se RMSGETSPC i get the space 
05 50 =€9 Bose 18 BLBC RO,10 ; branch on error 
09 Al BE Fo 0083 184 CVILB (SP)+,9(R1) : store Length 
: u 
51 BEDO OOBA 186 10$: POPL R1 : clean stack 
ok Se 
OO8E 189 RMSGETSPC1:: 
OO8E 190 RMSGETSPC:: 
52 DD OOBE 191 PUSHL R2 ; length desired 
00000000'GF 01 FB 0090 13 CALLS #1,G*GET_ZERO_VM ; allocate and clear memory 
51 50 00 0097 19 MOVL RO,R1 ; get address of memory 
50 01 DO OO9A 194 MOVL #1,R0 ; set success return 
0 D09e 196 me 
009E 197 RMSGETIPAG:: 
52 0200 8F 3C¢ OOAS Hs mucsen #512,R2 : get page 
52 OD OOA 00 PUSHL R2 3; save input Longeh 
E7 10 OOAS 01 BSBB RMSGETSPC 3 get the spac 
53 51 00 O00A7 4 MOVL R1,R5 3; return page sééress in r3 
52 8E& DO OOAA 0 MOVL (SP)+,R2 3; return length obtained 
05 oe Be RSB 
OAE 06 RMSALDBUF 
55 DD OOAE 07 PUS a ; save length to allocate 
52 55 p00 0080 08 MOVL R5,R2 ; copy to correct register 
D9 §=6©10 «0083 09 BSBB RMSGETSPC : get the space 
53. 51 pd 0085 10 MOVL 1,R ; return page buffer in r3 
52 00000050 8F DO 0088 11 MOVL 7B688C BLN,R2 ; length of BDB 
CD 610 OOBF 1 8SBB RASGE TSPC ; get the ace 
54 51 00 00C1 1 MOVL R1 return bd buffer in r4 : 
44 BA 61 OF O0C4 214 INSQUE iy? sajrese 58 zune nto} ; insert into bdb queue at tail 
18 AG 3° OD 0c8 15 MOVL pees, -" set address of buffer 
52 8E 00 Beet 18 MOVL 3; restore length to allocate 
oe lle 
D 18 RMSRETIPAG: : 
52 0200 ef 3¢ 0 MOVZWL #512,R2 
8 11 D3 1 RB RMSRE TSPC 
aH, § RMSRETBLK: : 
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4 RMSRETBLK1:: 
52 09 Ad A ° 7 5 MOVZBL 
Se Se se dB § 
ODF 
ODF 8 RMSRETPAG:: 
ODF RMSRETSPC1:: 
ODF QO RMSRETSPC:: 
4 DD OODF 1 PUSHL 
DD O0E1 ¢ PUSHL 
00000000"GF 90 FB BOER CALLS 
50 0 $5 OEA 4 MOVL 
0 Boer 5 RSB 
BREE & RMSGTIADR:: 
59 00000208°EF D0 3 8 MOVL 
05 OOF 39 RSB 
OOF6 40 
OOF6 41 RMSDEACCESS:: 
OOF6 $3 RMSINIT_SWB:: 
OOF6 243 RMSNEXTDBIR:: 
50 01 00 OOF6 44 MOVL 
05 O0F9 45 RSB 
OOFA 46 
OOFA 47 PIOSGT_DDSTRING: 
5D 45 58 45 53 59 53 5B 00° OOFA 48 eASCIC 
08 OOFA 
0103 $08 
00000000 50 -PSECT 
0000 251 PIOSGW_IIOIMPA: 
00000200 0000 $2¢ - BLK 
3s08 253 PIOSA_TRACE:: 
00000204 0200 254 -BLKL 
0204 55 PIOSGW_STATUS:: 
00000208 0204 56 »BLKL 
0208 57 IFAB_ADDRESS: 
0000020C 0208 58 -BLKL 
020C $25 
00000000 6 0c 60 TPTSL_PARSE== 
00000000 0c $e) TPT$L_NTXLATLOG== 
00000000 020C ¢ TPTSL_PARSES== 
00000000 O20C 263 TPTS$L_XLATLOG== 
00000000 020C 264 TPT$L_XPFN== 
020C $03 
020C 66 END 


15-SEP- 
4-SEP- 


7srh3 RS 
#2,R2,R 


R4 

#3 
#2,G*FREE_VM 
#1,R0 


IFAB_ADDRESS ,R9 


#1,R0 


“CSYSEXE]" 


DATA, WRT ,NOEXE 
512 


oooocw$; 
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get length from block 
convert to bytes 


address to free 
length to free 
free memory 

set success return 
return 


; get ifab address 


; default directory 


; dummy image 1/0 impure area 
; dummy trace area 

; global status word 

; saves address of IFAB 


force all $TSTPT's to 
use the singhe Longword 
at PIOSA_TRACE 


[ 
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race osen 
RRSALDBUF 


ETSPC1 
RMSSLIST_ERRS 
RMSSLIST_ERR_CNT = 00 
RMSSPARSE eteerere x 
x 


RMS$_SYN a ng 
nn 


PRES Ee Re ie Ls oct, Se ee 
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Psect synopsis 46-SEP-1984 23:00:4 BACKUP. SRC JSTAPARSE .MAR; 1 (2) 
ao oo oe wanna nnoaace + 
: Psect synopsis ! 
penser aesceaenaeanacnu be 
PSECT name Allocation PSECT No. Attributes 
» GS « 444 ( 8-3 NOPIC USR CON ABS _ LCL NOSHR NOEXE NO NOWRT NOVEC BYTE 
RMSRMS 0001 ( 259.) of PIC USR CON’ REL GBL NOSHR EXE NOWRT NOVEC BYTE 
SABSS 0000 ( 0.) ( i NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DATA 000020C (« 524.) ( 3.) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC BYTE 
Seem rma mawecmrnn am wan aameae 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 12 £000 00-08 00:00:00.59 - 
pounene processing 109 00:00:00.98 00:00: 1: 3 
411 ES SES 00:00:4 38 
Synbol table sort 0 0:00:0 96 0:00:06.34 
s2 66 bs 4 00:00:08.63 
Suabot table output B88 “49 00:00:00.22 
Psect synopsis output 00:00:00.0 BF 0 2S “Oe 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 611 00:00:21.20 00:01:05.86 


The working set Limit was 1500 p 

86466 bytes (169 pages) of sires a were used to buffer the intermediate co 

There were 100 pages of symbol table space allocated to hold 1820 non-local and 3 lecat symbols. 
266 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

18 pages of virtual memory were used to define 17 macros. 


Geeocceesesooeosooscosooscoss 


Macro Library name Macros defined 
“$52 38DUAE: svs 0803116. MLB; 1 2 
$255$DUA28: CSHRLIBIRMS.MLB; | 4 

Biitttnts § CSys LIBISTAALET MLB;2 8 

TOTALS (all [hate tes. 14 


1878 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:STAPARSE/OBJ=0BJ$:STAPARSE MSRC$:STAPARSE /UPDATE=(ENHS: STAPARSE) +SHRL IBS: RMS. MLB/LIB+EXECMLS/LIB 
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